﻿Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports System.Windows.Forms
Imports DevExpress.XtraEditors

Public Class UCReserva

    Private Sub cboCosto_Popup(sender As Object, e As System.EventArgs) Handles cboCosto.Popup
        Dim popup As DevExpress.Utils.Win.IPopupControl = CType(sender, DevExpress.Utils.Win.IPopupControl)
        Dim popupForm As DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm = CType(popup.PopupWindow, DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm)
        popupForm.Width = CType(sender, Control).Width
    End Sub

    Private Sub cboCosto2_Popup(sender As Object, e As System.EventArgs) Handles cboCosto2.Popup
        Dim popup As DevExpress.Utils.Win.IPopupControl = CType(sender, DevExpress.Utils.Win.IPopupControl)
        Dim popupForm As DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm = CType(popup.PopupWindow, DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm)
        popupForm.Width = CType(sender, Control).Width
    End Sub

    Private Sub cboAnalisis_Popup(sender As Object, e As System.EventArgs) Handles cboAnalisis.Popup
        Dim popup As DevExpress.Utils.Win.IPopupControl = CType(sender, DevExpress.Utils.Win.IPopupControl)
        Dim popupForm As DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm = CType(popup.PopupWindow, DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm)
        popupForm.Width = CType(sender, Control).Width
    End Sub

    Private Sub cboNomContacto_Popup(sender As Object, e As System.EventArgs) Handles cboNomContacto.Popup
        Dim popup As DevExpress.Utils.Win.IPopupControl = CType(sender, DevExpress.Utils.Win.IPopupControl)
        Dim popupForm As DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm = CType(popup.PopupWindow, DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm)
        popupForm.Width = CType(sender, Control).Width
    End Sub

    Private Sub gGLENroDocumentoId_Popup(sender As Object, e As System.EventArgs) Handles gGLENroDocumentoId.Popup
        Dim popup As DevExpress.Utils.Win.IPopupControl = CType(sender, DevExpress.Utils.Win.IPopupControl)
        Dim popupForm As DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm = CType(popup.PopupWindow, DevExpress.XtraEditors.Popup.PopupGridLookUpEditForm)
        popupForm.Width = CType(sender, Control).Width
    End Sub

    Private Sub chkFlgNew_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkFlgNew.CheckedChanged
        Dim edit As CheckEdit = TryCast(sender, CheckEdit)
        If edit.EditValue Then
            LCDNI.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
            LEGridDNI.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
        Else
            LCDNI.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Never
            LEGridDNI.Visibility = DevExpress.XtraLayout.Utils.LayoutVisibility.Always
        End If
    End Sub

    Private Sub chkSctrPension_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkSctrPension.CheckedChanged

    End Sub
End Class